(define (square x) (* x x))

(define (sum-of-squares x y) 
  (+ (square x) (square y)))

(define (sum-of-biggest-squares x y z)
    (if (or (> x y) (> x z))
	  (sum-of-squares x 
			  (if (> y z) y z))
	  (sum-of-squares y z)))
